﻿Imports Microsoft.VisualBasic

Public Class Product
    Private pID As Integer
    Private pDesc As String
    Private pPrc As Double
    Private pNotes As String

    Sub New()
        pID = 0
        pDesc = ""
        pPrc = 0.0
        pNotes = ""
    End Sub

    Public Function getpID() As Integer
        Return pID
    End Function
    Public Function getpDesc() As String
        Return pDesc
    End Function
    Public Function getpPrc() As Double
        Return pPrc
    End Function
    Public Function getpNotes() As String
        Return pNotes
    End Function

    Public Sub setpID(ByVal ID As Integer)
        pID = ID
    End Sub
    Public Sub setpDesc(ByVal Desc As String)
        pDesc = Desc
    End Sub
    Public Sub setpPrc(ByVal Prc As Double)
        pPrc = Prc
    End Sub
    Public Sub setpNotes(ByVal Notes As String)
        pNotes = Notes
    End Sub
End Class
